home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 October / 64er_Magazin_84-10_1984_Markt__Technik_de.d64 / hc-vc 1526 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  37 lines
  1. 1 rem hi res hardcopy v10
  2. 2 rem durch sys 6*4096,t,p wird ein hi res hard-
  3. 3 rem copy  auf  den  drucker  1526  ausgegeben.
  4. 4 rem t           =    tabulator   (0<= t <= 40)
  5. 5 rem p * 4096    =    anfangsadresse  des  hrbm
  6. 6 rem z.b. sys 6*4096,20,2
  7. 7 rem
  8. 8 rem v1  29.12.83 do by lk
  9. 9 rem v10 25. 1.84 mi by lk
  10. 10 rem
  11. 11 rem (c) '84 by lucas kalt
  12. 12 rem
  13. 13 rem nicht relokatibel!!!
  14. 14 fora=6*4096to6*4096+1*256+3*16+11:readb:x=x+b:pokea,b:next
  15. 15 ifx<>40377thenprint"** data-fehler **":stop
  16. 16 print"sys 6*4096,t,p":print
  17. 17 print"t     = tabulator (0<=t<=40)
  18. 18 [153]"p*4096= anfangsadresse des hrbm
  19. 19 poke56,6*16:poke55,1:new
  20. 20 data169,106,162,4,160,6,32,212,96,162,106,32,201,255,169,20,32,210,255
  21. 21 data169,105,162,4,160,5,32,212,96,169,100,162,4,160,0,32,212,96,32,253
  22. 22 data174,32,158,183,224,41,176,12,134,252,32,253,174,32,158,183,224,16
  23. 23 data144,6,32,179,96,76,72,178,138,10,10,10,10,133,255,162,0,134,254,142
  24. 24 data60,3,169,0,141,61,3,32,223,96,32,28,97,240,41,162,105,32,201,255
  25. 25 data162,0,189,62,3,32,210,255,232,224,8,208,245,169,13,32,210,255,162
  26. 26 data100,32,201,255,32,42,97,169,254,32,210,255,169,141,32,210,255,24
  27. 27 data165,254,105,8,133,254,144,2,230,255,32,225,255,240,30,238,61,3,173
  28. 28 data61,3,201,40,208,181,162,100,32,201,255,169,13,32,210,255,238,60,3
  29. 29 data173,60,3,201,25,208,156,169,105,32,195,255,169,13,32,210,255,169
  30. 30 data100,32,195,255,162,106,32,201,255,169,36,32,210,255,32,204,255,169
  31. 31 data106,76,195,255,32,186,255,169,0,32,189,255,76,192,255,120,165,1,41
  32. 32 data253,133,1,162,0,138,157,62,3,232,224,8,208,248,169,128,133,253,160
  33. 33 data0,177,254,162,0,10,144,10,72,189,62,3,5,253,157,62,3,104,232,224
  34. 34 data8,208,238,70,253,200,192,8,208,227,165,1,9,2,133,1,88,96,162,0,138
  35. 35 data221,62,3,208,5,232,224,8,208,246,96,24,165,252,109,61,3,170,240,8
  36. 36 data169,32,32,210,255,202,208,250,96
  37.